home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 Years / Tiger_Disk_5_Years_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 029 - ende ! - (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  60 lines
  1. 10 rem"[141][145]">aus der nonsens-werkstatt von lukian<(NULL)"
  2. 50 [153]:[151]53281,6
  3. 90 [153]"load--   zum schluss ein basic-eierkopf   --":[151]53280,0:[151]53281,0
  4. 95 [151]646,6 :[153]"tab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(":[153]:[153]
  5. 97 [153]"                 pokestepspc((NULL)wait    print#orlenlenlenlenlen^wait   "
  6. 98 [153]"verifyabsorlenlenlenlenlen=lenlenlenlenlen^waitint def(NULL)(NULL) (NULL)waitright$   print#peek(NULL)usrusrusr(NULL)peekwait"
  7. 99 [153]"verifyabspeek*    peek    rndpeekwaitint defmid$ o wait(NULL)   print#peeksgn   +peekwait"
  8. 100 [153]"verifyabs/lenlenlenlenlen>lenlenlenlenlenexpwaitint  def(NULL)str$waitstep    print#peeksgnpoke(NULL)usr(NULL)print#+peekwait"
  9. 101 [153]"verifyabsstop       print#stepusrusrusrusr(NULL)waitverifyintclr  step(NULL)(NULL)wait    print#peeksgnpokesgn +print#+peekwait"
  10. 102 [153]"verifyabsstoplistsgnsgnsgnsgnsgnfnstop print#  (NULL)right$  stopwaitverifyintclrstep usr:usr (NULL)wait  print#peeksgnpokesgn +print#+peekwait"
  11. 103 [153]"verifyabsstoplistfnsgnfnsgnsgnfnstop print#peek /exp peekwaitverifyintclr chr$ . left$ wait  print#peeksgnpokesgn +print#+(NULL)waitcont or=======";
  12. 105 [153]"verifyabsorlenlenlen=lenlenprint#mid$logloglogcos(NULL)waitverifyintclr(NULL)(NULL) . (NULL)waitstepwait stop print#peeksgnpokesgn +print#+peekwaitcont -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
  13. 106 [153]"verifyabs/lenlenlen>lenlenprint#rndnewnewnewnew*waitpokeor andandandandand ^wait print#peeksgnpoke(NULL)andsqrprint#+peekwaitcont -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";:[151]646,9
  14. 107 [153]"verifyabsthentab(tab(tab(tab(tab(fortototototototototototototototototowaitprint#peeksgn   +peekwaitcont -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
  15. 108 [153]"                                        ":
  16. 109 [153]"  da sitzt er nun, der arme wicht, "
  17. 110 [153]"  denn neuen stoff, den hat er nicht.print
  18. 111 print"     ein abo bei der 'tiger-crew' "
  19. 112 print"        und das problem ist weg im nu! ":forz=1to75:
  20. 190 a=53280:forx=0to8:pokea,2:pokea,7:pokea,4:pokea,5:pokea,.:pokea,6   :restore
  21. 192 nextz:
  22. 195 ti$="000002":wait161,1:
  23. 198 :ti$="000002":wait161,1:
  24. 200 print"[147]         [176][195][174][176][195][174][176][195][174][175][175][175][175][176][195][174][176][195][174][176]
  25. 202 [153]"cont      orlenlenexp peekpeek /expna, dann/exp peekpeek /lenlen^ "
  26. 204 [153]"open  orlenlen=(NULL)lenlenlenlen>exp orlenlenexp(NULL)usrusr(NULL)/lenlen^ />lenlenlenlen(NULL)=lenlen^ "
  27. 206 [153]"print or>lenlen><orlenlenlenlen^ -lenlenlen(NULL)andandsqrlenlenlen< orlenlenlenlen^->lenlen>^"
  28. 208 [153]" -lenlenlenlenexp/lenlenlenlenexp /lenlenlenexp  /lenlenlenexp /lenlenlenlenexp/lenlenlenlen<"
  29. 210 [153]"cont peek      absget   winke, winke !   absget      peek"
  30. 215 [153]"clr -^ orlen^orlenlenlenlenlenlenlen^ or^  or^ orlenlenlenlenlenlenlen^orlen^ or<"
  31. 217 [153]"def /< /lenexp/lenlenlenlen=lenlen<cont /exp  /exp def-lenlen=lenlenlenlenexp/lenexp -exp"
  32. 219 [153]"for  /=lenlenlenlenlenlen^ peek  peekcont or^  or^ forpeek  peek orlenlenlenlenlenlen=exp "
  33. 220 [153]"   /=lenlenlenlenlen< /lenlen<clr /exp  /exp -lenlenexp -lenlenlenlenlen=exp"
  34. 221 [153]"clr    /lenlenlen=lenexp orlenlenexpverify lukianclr /lenlen^ /len=lenlenlenexp
  35. 222 print"        [171][195][195][195][177][195][195][174][176][174][176][174][176][174][176][174][176][195][195][177][195][195][195][179]  "
  36. 223 print"[151] [169][205][214][206][223]  [173][195][195][195][195][195][195][189][173][189][173][189][173][189][173][189][173][195][195][195][195][195][195][189]  [151][169][205][214][206][223]"
  37. 224 print"  [213]v[201]                              [151][213]v[201]"
  38. 227 fori=0to23:c2$=c2$+chr$(32)+chr$(157)+chr$(17):nexti:c2$=c2$+chr$(145):
  39. 228 forj=0to30:ifj=0thenpoke781,24:sys59903
  40. 230 printchr$(19);tab(j);c2$:printchr$(19);tab(40-j);c2$
  41. 235 nextj:poke53280,0:poke53281,0
  42. 240 forz=1to600:next
  43. 301 form=54272to54295:pokem,0:next:poke54296,15:poke54277,9:
  44. 302 poke54278,49:poke54272,17
  45. 404 poke54296,15:poke54277,10:poke54278,202
  46. 408 readh,l,dr:print:print:print:print
  47. 410 ifh<0goto434
  48. 412 poke54287,h:poke54273,l:poke54276,21:print:print:print"[147]"
  49. 416 fort=1todr:next :poke54296,15
  50. 422 forb=0to34:next:pokes,1
  51. 424 goto404
  52. 426 data42,23,35,24,38,45,44,33,26,34,29,41,43,42,33,38,41,500:
  53. 428 data72,30,36,21,37,31,28,31,32,45,32,34,44,33,26,31,34,500
  54. 430 data13,49,4,57,6,6,82,1,500
  55. 432 data-1,-1,-1:
  56. 434 restore:i=i+2:ifi=1thenpoke54296,8
  57. 436 print"[147]                 finis!                 [144]";
  58. 500 forz=1to800:next:poke53280,14:poke53281,6:poke646,14:
  59. 501 poke54296,0:sys58253
  60.